home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 3 / Amoszine 3.adf / sticks_ext / sticks-demos / Stick.AMOS / Stick.amosSourceCode < prev   
AMOS Source Code  |  1992-02-26  |  1KB  |  45 lines
  1. 'Moving 4 Players around a screen  
  2. 'Using the new Stick functions.
  3. '
  4. Dim X(4),Y(4),DX(4)
  5. Load "demo.abk"
  6. Get Sprite Palette 
  7. Hide 
  8. Flash Off : Curs Off : Cls 0
  9. For A=0 To 100
  10. Plot Rnd(320),Rnd(200)
  11. Next A
  12. Double Buffer 
  13. Colour Back Colour(0) : View 
  14. Sprite 0,248,240,1
  15. Data 0,0
  16. Data 280,0
  17. Data 0,170
  18. Data 280,170
  19. For A=1 To 4
  20. Read X,Y
  21. X(A)=X : Y(A)=Y
  22. Next A
  23. Do 
  24. For A=1 To 4
  25. Bob A,X(A),Y(A),1+A
  26. If Jleft(0) Then X(1)=X(1)-1
  27. If Jright(0) Then X(1)=X(1)+1
  28. If Jdown(0) Then Y(1)=Y(1)+1
  29. If Jup(0) Then Y(1)=Y(1)-1
  30. If Jleft(1) Then X(2)=X(2)-1
  31. If Jright(1) Then X(2)=X(2)+1
  32. If Jdown(1) Then Y(2)=Y(2)+1
  33. If Jup(1) Then Y(2)=Y(2)-1
  34. If Extension_17_003A(0) Then X(3)=X(3)-1
  35. If Extension_17_004C(0) Then X(3)=X(3)+1
  36. If Extension_17_006E(0) Then Y(3)=Y(3)+1
  37. If Extension_17_005E(0) Then Y(3)=Y(3)-1
  38. If Extension_17_003A(1) Then X(4)=X(4)-1
  39. If Extension_17_004C(1) Then X(4)=X(4)+1
  40. If Extension_17_006E(1) Then Y(4)=Y(4)+1
  41. If Extension_17_005E(1) Then Y(4)=Y(4)-1
  42. X(A)=Min(Max(X(A),0),310)
  43. Y(A)=Min(Max(Y(A),0),190)
  44. Next A
  45. Loop